home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / psconver.sda / PS A TO B V1.0 (.txt) next >
Commodore BASIC  |  2009-10-10  |  610b  |  27 lines
  1. 10 PRINT"[147]  PRINT SHOP SIDE A TO SIDE B CONVERTER"
  2. 20 PRINT"               RELEASE 1.0"
  3. 30 PRINT"            BY BRIAN HEYBOER"
  4. 80 INPUT"SIDE A FILE TO BE CONVERTED";F1$
  5. 90 INPUT"SIDE B CONVERTED FILE";F2$
  6. 100 OPEN8,8,8,F1$+",P,R":OPEN9,8,9,F2$+",P,W"
  7. 110 PRINT#9,CHR$(0);CHR$(88);
  8. 120 FOR I=1 TO 35:GET#8,A$:NEXT
  9. 130 FOR I=4 TO 48:Q%=1:O$="":PRINT"*";
  10. 140 FOR J=1 TO 6:O%=0:FOR L=4 TO 0 STEP-4:B%=192
  11. 150 IF J=6 THEN IF L=0 THEN 270
  12. 160 GET#8,A$:IFA$="" THEN Q%=0:GOTO270
  13. 170 A%=ASC(A$)
  14. 180 FOR K=3 TO 0 STEP-1
  15. 190 Z%=A% AND B%
  16. 200 IF Q% THEN 230
  17. 210 IF Z%<>0 THEN Q%=1
  18. 220 GOTO 240
  19. 230 IF Z%<>B% THEN Q%=0
  20. 240 O%=O%+(Q%*(2^(K+L)))
  21. 250 B%=B%/4
  22. 260 NEXTK
  23. 270 NEXTL
  24. 280 O$=O$+CHR$(O%)
  25. 290 NEXTJ:PRINT#9,O$;:NEXTI
  26. 300 CLOSE8:CLOSE9
  27.